home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Clue.dxr / 00001_Startup.ls next >
Encoding:
Text File  |  1998-09-17  |  831 b   |  28 lines
  1. global gMasterData, gSection
  2.  
  3. on prepareMovie
  4.   setUserArea(gMasterData, #clue)
  5.   set gSection to #intro
  6.   setFingerCursor(#on, [40, 41, 42, 43, 44])
  7.   set the keyDownScript to "quitCatcher"
  8.   cursor(0)
  9. end
  10.  
  11. on initFields
  12.   set vEmptyList to ["reply1", "reply3", "reply9", "reply11", "reply13", "reply15", "reply17", "reply19", "reply21"]
  13.   repeat with x in vEmptyList
  14.     set the text of member x to " "
  15.     set the textFont of member x to "Palatino"
  16.     set the textSize of member x to 14
  17.     set the text of member x to EMPTY
  18.   end repeat
  19. end
  20.  
  21. on colorfields
  22.   repeat with xField in ["reply1", "reply3", "reply9", "reply11", "reply13", "reply15", "reply17", "reply19", "reply21"]
  23.     set the text of member xField to " "
  24.     set the foreColor of member xField to 1
  25.     set the backcolor of member xField to 255
  26.   end repeat
  27. end
  28.